﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
dim myid
myid=qingtian.nid
%>


<%
wap=request("wap")
aaa=request("aaa")
ids=myid
set rs1=Server.CreateObject("ADODB.Recordset")
strSQL="select * from "&aaa&" where cstr(ids)="&myid
rs1.open strSQL,liao,1,2
if rs1.recordcount<1 then
rs1.addnew
rs1("ids")=myid
rs1.update
end if
rs1.close
set rs1=Nothing




Response.Write("<card title='好彩花园' ontimer='index.asp?wap="&wap&"'>")
Response.Write("<timer value='3'/><p>")
Response.Write("系统已成功为您开垦了新花园！并送你10颗种子,赶快去种花吧!<br/>--------------<br/>正在返回您的花园...")
Response.Write("<br/>--------------<br/>")
Response.Write("<a href='/bbs.asp?wap=" & wap & "'>社区首页</a>")
%>

<%qingtian.shuchu%>

